home *** CD-ROM | disk | FTP | other *** search
/ Pascal Super Library / Pascal Super Library (CW International)(1997).bin / MATH / NRPAS13 / RANK.PAS < prev    next >
Pascal/Delphi Source File  |  1991-04-29  |  298b  |  13 lines
  1. PROCEDURE rank(n: integer; indx: gliarray; VAR irank: gliarray);
  2. (* Programs using routine RANK must define type
  3. TYPE
  4.    gliarray = ARRAY [1..np] OF real;
  5. in the main routine, with np >= n.   *)
  6. VAR
  7.    j: integer;
  8. BEGIN
  9.    FOR j := 1 TO n DO BEGIN
  10.       irank[indx[j]] := j
  11.    END
  12. END;
  13.